home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / WINDTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1993-01-10  |  3.2 KB  |  168 lines
  1. DEFINITION MODULE WindTool;
  2.  
  3. (*
  4. Window Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM AES     IMPORT TreePtr,ObjectIndex;
  12. FROM WindMgr IMPORT WindowElement;
  13. FROM RcMgr   IMPORT GRect,GPnt;
  14. FROM PORTAB  IMPORT UNSIGNEDWORD,SIGNEDWORD;
  15.  
  16. (* WFKind *)
  17.  
  18. PROCEDURE SetKind(Handle: SIGNEDWORD; Kind: WindowElement);
  19.  
  20. (* WFName *)
  21.  
  22. PROCEDURE SetName(Handle: SIGNEDWORD; VAR Name: ARRAY OF CHAR);
  23.  
  24. (* WFInfo *)
  25.  
  26. PROCEDURE SetInfo(Handle: SIGNEDWORD; VAR Info: ARRAY OF CHAR);
  27.  
  28. (* WFWorkXYWH *)
  29.  
  30. PROCEDURE GetWorkXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  31.  
  32. (* WFCurrXYWH *)
  33.  
  34. PROCEDURE SetCurrXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  35.  
  36. PROCEDURE GetCurrXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  37.  
  38. (* WFPrevXYWH *)
  39.  
  40. PROCEDURE GetPrevXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  41.  
  42. (* WFFullXYWH *)
  43.  
  44. PROCEDURE GetFullXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  45.  
  46. (* WFHSlide *)
  47.  
  48. PROCEDURE SetHSlide(Handle: SIGNEDWORD; Pos: UNSIGNEDWORD);
  49.  
  50. PROCEDURE GetHSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;
  51.  
  52. (* WFVSlide *)
  53.  
  54. PROCEDURE SetVSlide(Handle: SIGNEDWORD; Pos: UNSIGNEDWORD);
  55.  
  56. PROCEDURE GetVSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;
  57.  
  58. (* WFTop *)
  59.  
  60. PROCEDURE SetTop(Handle: SIGNEDWORD);
  61.  
  62. PROCEDURE GetTop(): SIGNEDWORD;
  63.  
  64. PROCEDURE GetTopAndBelow(VAR Top  : SIGNEDWORD;
  65.                          VAR Id   : SIGNEDWORD;
  66.                          VAR Below: SIGNEDWORD);
  67.  
  68. (* WFFirstXYWH *)
  69.  
  70. PROCEDURE GetFirstXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  71.  
  72. (* WFNextXYWH *)
  73.  
  74. PROCEDURE GetNextXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);
  75.  
  76. (* WFNewDesk *)
  77.  
  78. PROCEDURE SetNewDesk(PTree: TreePtr; Index: ObjectIndex);
  79.  
  80. PROCEDURE GetNewDesk(): TreePtr;
  81.  
  82. (* WFHSlSize *)
  83.  
  84. PROCEDURE SetHSlSize(Handle: SIGNEDWORD; Size: SIGNEDWORD);
  85.  
  86. PROCEDURE GetHSlSize(Handle: SIGNEDWORD): SIGNEDWORD;
  87.  
  88. (* WFVSlSize *)
  89.  
  90. PROCEDURE SetVSlSize(Handle: SIGNEDWORD; Size: SIGNEDWORD);
  91.  
  92. PROCEDURE GetVSlSize(Handle: SIGNEDWORD): SIGNEDWORD;
  93.  
  94. (* WFScreen *)
  95.  
  96.  
  97.  
  98. (* WFTopAttrb *)
  99.  
  100. PROCEDURE SetTAttrb(Handle: SIGNEDWORD; IsTop: BOOLEAN);
  101.  
  102. (* WFColor *)
  103.  
  104.  
  105.  
  106. (* WFSizTop *)
  107.  
  108. PROCEDURE SetSizTop(Handle: SIGNEDWORD; VAR Rect: GRect);
  109.  
  110. (* WFDColor *)
  111.  
  112.  
  113.  
  114. (* WFTopAp *)
  115.  
  116.  
  117.  
  118. (* WFOwner *)
  119.  
  120. PROCEDURE GetOwner(    Handle: SIGNEDWORD;
  121.                    VAR Open  : BOOLEAN;
  122.                    VAR Above : SIGNEDWORD;
  123.                    VAR Below : SIGNEDWORD): SIGNEDWORD;
  124.  
  125. (* WFBack *)
  126.  
  127. PROCEDURE SetBack(Handle: SIGNEDWORD);
  128.  
  129. (* WFBEvent *)
  130.  
  131. PROCEDURE SetBEvent(Handle: SIGNEDWORD; OnOff: BOOLEAN);
  132.  
  133. PROCEDURE GetBEvent(Handle: SIGNEDWORD): BOOLEAN;
  134.  
  135. (* WFBottom *)
  136.  
  137. PROCEDURE SetBottom(Handle: SIGNEDWORD);
  138.  
  139. PROCEDURE GetBottom(): SIGNEDWORD;
  140.  
  141. (***************************************************************************)
  142.  
  143. PROCEDURE BeginUpdate;
  144.  
  145. PROCEDURE EndUpdate;
  146.  
  147. PROCEDURE ChkUpdate(): BOOLEAN;
  148.  
  149. PROCEDURE BeginMouseControl;
  150.  
  151. PROCEDURE EndMouseControl;
  152.  
  153. PROCEDURE ChkMCtrl(): BOOLEAN;
  154.  
  155. PROCEDURE BeginEmergency;
  156.  
  157. PROCEDURE EndEmergency;
  158.  
  159. (***************************************************************************)
  160.  
  161. TYPE DrawProc = PROCEDURE(VAR GRect);
  162.  
  163. PROCEDURE RedrawWindow(    Window: SIGNEDWORD;
  164.                        VAR Clip  : GRect;
  165.                            Draw  : DrawProc);
  166.  
  167. END WindTool.
  168.